home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Browser / voyager.mod < prev   
Encoding:
Text File  |  2000-03-14  |  1.8 KB  |  91 lines
  1. /* $VER: HTMLEXT Modul: Voyager.mod V 014 by Juan Manuel Wehrli 1999 - 2000
  2.    Voraussetzung: Voyager 2.95 oder besser
  3.     Achtung, eingeschränkt: Besser AWeb oder IBrowse fürs Designen
  4.  */
  5.  
  6. if ~show("L",rexxtricks.library) then do
  7.         call addlib("rexxtricks.library",0,-30,0)
  8. end
  9.  
  10. PARSE ARG Befehl File
  11. OPTIONS RESULTS
  12. ADDRESS COMMAND
  13.  
  14. if Befehl = QUIT then do
  15.     if show('P',"VOYAGER") then do
  16.         ADDRESS "VOYAGER" QUIT
  17.     end
  18.     exit
  19. end
  20.  
  21.  
  22. if Befehl = OPEN then do
  23.     if ~show('P',"VOYAGER") then do
  24.         'Run <>NIL: voyager:V'
  25.         "sys:rexxc/waitforport VOYAGER"
  26.     end
  27.     File = STRIP(File,,'"')
  28.     File = COMPRESS(File)
  29.     if File ~= "" then do
  30.         ADDRESS "VOYAGER" OPENURL '"file://localhost/' || File || '"'
  31.     end
  32.     exit
  33. end
  34.  
  35. if Befehl = OPENNEW then do
  36.     DIR = GETENV(.htmlext.tmp)
  37.     if ~show('P',"VOYAGER") then do
  38.         'Run <>NIL: voyager:v'
  39.         "sys:rexxc/waitforport VOYAGER"
  40.     end
  41.     File = STRIP(File,,'"')
  42.     File = COMPRESS(File)
  43.     if File ~= "" then do
  44.         ADDRESS "VOYAGER" OPENURL '"file:///' || File || '"' NEWWIN
  45.     end
  46.     exit
  47. end
  48.  
  49.  
  50. if Befehl = OPENURL then do
  51.     if ~show('P',"VOYAGER") then do
  52.         'Run <>NIL: SYS:Network/Voyager/V'
  53.         "sys:rexxc/waitforport VOYAGER"
  54.     end
  55.     address "VOYAGER"
  56.     File = STRIP(File,,'"')
  57.     File = COMPRESS(File)
  58.     if File ~= "" then do
  59.         ADDRESS "VOYAGER" OPENURL '"' || File || '"'
  60.     end
  61.     exit
  62. end
  63.  
  64. if Befehl = ICONIFY then do
  65.     if show('P',"VOYAGER") then do
  66.         ADDRESS "VOYAGER" HIDE
  67.     end
  68.     exit
  69. end
  70.  
  71. if Befehl = UNICONIFY then do
  72.     if show('P',"VOYAGER") then do
  73.          ADDRESS "VOYAGER" SHOW
  74.     end
  75.     exit
  76. end
  77.  
  78. if Befehl = START then do
  79.     if ~show('P',"VOYAGER") then do
  80.         'Run <>NIL: voyager:V'
  81.         "sys:rexxc/waitforport VOYAGER"
  82.     end
  83.     File = STRIP(File,,'"')
  84.     File = COMPRESS(File)
  85.     if File ~= "" then do
  86.         ADDRESS "VOYAGER" OPENURL '"file:///htmlext:data/preview/blank.htm"'
  87.     end
  88.     exit
  89. end
  90.  
  91.